home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / PVDRIVER / CELSIUS.ZIP / INSTALL.DAT < prev    next >
Text File  |  1993-10-13  |  34KB  |  1,261 lines
  1. /*--------------------------------------------------------------------------
  2.   File Name: install.dat
  3.  
  4.   History: Robert Gilsdorf (April 02, 1993) File created
  5.        
  6.   Description: This is a script file that automates the installation process 
  7.            of the Celsius VLB display drivers.
  8. --------------------------------------------------------------------------*/
  9. @DefineProject
  10.     @Name            = "Celsius VLB"
  11.     @Version         = "1.3"
  12.     @Immediate       = 1 
  13.     @Subdir          = "\\"
  14.     @OutDrive        = C
  15.     @AssumeHardDisk  = 1
  16. @EndProject
  17. /*---------------------------- Define String -----------------------------*/
  18. @DefineVars
  19.  
  20.  @Qstring @msgDDI       = "Display Driver Installation"
  21.  @Qstring @msgDrive     = "Please Select Destination Drive:"
  22.  @Qstring @msgDir       = "Please Enter a Directory name or select ENTER to accept default."
  23.  @Qstring @msgPSAV      = "Please Select Version:"
  24.  @Qstring @msgPSAA      = "Please Select An Application:"
  25.  @Qstring @msgPSAO      = "Please Select an Option:"
  26.  @Qstring @msgDDNE      = "does not exist."
  27.  @Qstring @msgCont      = "If you choose to continue, one will be created."
  28.  @Qstring @msgNoFile    = "Some files are missing in your input directory:"
  29.  @Qstring @msgNPI       = "may not be properly installed."
  30.  @Qstring @Reenter      = " Enter Again"
  31.  @Qstring @Cont         = "  Continue  "
  32.  @Qstring @NameWin      = "Microsoft Windows"
  33.  @Qstring @NameCADsys   = "Computer Aided Design"
  34.  @Qstring @NameACAD     = "AutoCAD"
  35.  @Qstring @NameCADKey   = "CADKey"
  36.  @Qstring @NameDataCAD  = "DataCAD"
  37.  @Qstring @NameMicroCAD = "MicroStation"
  38.  @Qstring @NameVersaCAD = "VersaCAD"
  39.  @Qstring @NamePCAD     = "PCAD"
  40.  @Qstring @NameWP       = "WordPerfect"
  41.  @Qstring @NameUtil     = "Orchid VESA Driver"
  42.  @Qstring @NameMore     = "More...."
  43.  @Qstring @NameOtherp   = "Other Orchid Products"
  44.  @Qstring @NameTchsupt  = "Technical Support"
  45.  @EndVars
  46.  
  47.  
  48.  
  49.  
  50. /*--------------------- Introduction Message -----------------------------*/
  51. @Display
  52. @If (@CheckCard ("C000", "0063", "CELSIUS VLB") == 1)
  53.  Goto MenuJump
  54. @Else 
  55.  @Cls
  56.  
  57.         █████████████████ ERROR ████████████████
  58.         █                                      █
  59.         █  An Orchid Celsius video adapter     █
  60.         █  is not detected in your system.     █
  61.         █                                      █
  62.         █  If you choose to continue this      █
  63.         █  installation, the driver will not   █
  64.         █  respond correctly.                  █
  65.         █                                      █
  66.         █  PRESS F3 TO ABORT INSTALLATION      █
  67.         █                                      █
  68.         █                                      █
  69.         █                                      █
  70.         ████████████████████████████████████████
  71.  
  72.  @Pause
  73. @Endif
  74.  
  75. MenuJump:
  76. @cls
  77.  
  78.  
  79.  
  80.  
  81.  
  82.                Orchid Celsius VLB Video Adapter
  83.  
  84.  
  85.               Display Driver Installation Program
  86.  
  87.  
  88.                    Disk Release 1.3
  89.  
  90.  
  91.  
  92.  
  93.   @Pause
  94. @Cls
  95. @Endif
  96. @EndDisplay
  97.  
  98.  
  99. /*--------------------- Drive C: check for Installation-----------------*/
  100.  
  101. @If ("@Indrive"=="C")
  102.     @Display
  103.  
  104.     The Install Program must be run from a Floppy Drive.  Please use the  
  105.     <ESC> key and start over from the Floppy drive.
  106.  
  107.      @Pause
  108.     @Abort
  109.    @EndDisplay
  110. @EndIf
  111.  
  112. /*---------------------- Installation Main Menu --------------------------*/
  113. MenuMain:
  114.  @FlushOptions
  115.  @EnableF1(1)
  116.  @GetOption
  117.  @Cls
  118.   @Option 1000 = "@NameWin"
  119.   @Option 2000 = "@NameCADsys"
  120.   @Option 5000 = "@NameWP"
  121.   @Option 6000 = "@NameUtil"
  122.   @Option 7000 = "@NameMore"
  123.  
  124.  @EndOption
  125.  
  126.  @If (@Esc)
  127.      @Exit
  128.  @Elseif (@KeyF1)
  129.      @Goto MenuMainHelp
  130.  @ElseIf (1000 [= @Option)
  131.      @Goto MenuWin
  132.  @ElseIf (2000 [= @Option)
  133.      @Goto MenuCADsys
  134.  @ElseIf (5000 [= @Option)
  135.      @Goto MenuWordProcess
  136.  @ElseIf (6000 [= @Option)
  137.      @Goto MenuUtil
  138.  @ElseIf (7000 [= @Option)
  139.      @Goto MenuInfo
  140.  @Else
  141.      @Goto MenuMain
  142.  @Endif
  143.  
  144. /*--------------------- Handle Information Menu  ----------------------------*/
  145. MenuInfo:
  146. @ClearOption(7040)
  147. @ClearOption(7045) 
  148. @ClearOption(7050)
  149.  @EnableF1(0)
  150.  @GetOption
  151.  @Cls
  152.     
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.   @Option 7040 = "@NameOtherp"
  166.   @Option 7045 = "Other Orchid Video Products"
  167.   @Option 7050 = "@NameTchsupt"
  168.  
  169.  
  170.   @EndOption
  171.  
  172.  
  173.  @If (@Esc)
  174.      @Goto MenuMain
  175. @ElseIf (7040 [=@Option)
  176.      @Help ("@ExePath\\install.hlp", "HelpOtherp", "EndOtherp")
  177. @ElseIf (7045 [=@Option)
  178.      @Help ("@ExePath\\install.hlp", "HelpFah", "EndFah")
  179. @ElseIf (7050 [=@Option)
  180.      @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")
  181.  
  182. @endif
  183. @Goto MenuInfo
  184.  
  185. /*--------------------- Handle Help  Menu  ----------------------------*/
  186.  
  187.  
  188. MenuMainHelp:
  189.  
  190. @If (1000 [= @Option)  /* Windows */
  191.    @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  192. @Elseif (2000 [= @Option) /* CAD's */
  193.   @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
  194. @Elseif (5000 [= @Option) /* Word Process */
  195.   @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  196. @Elseif (6000 [= @Option) /* Utility */
  197.   @Help ("@ExePath\\install.hlp", "HelpUtil", "EndUtil")
  198. @Elseif (7000 [= @Option) /* More.... */
  199.   @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
  200. @EndIf   
  201.  
  202. @Goto MenuMain
  203.  
  204. /*---------------- Windows 3.x Driver Installation (1000) -----------------*/
  205. MenuWin:
  206.  
  207. @ClearOption (1010) 
  208. @ClearOption (1020)
  209. @EnableF1(1)
  210. @GetOption @Cls
  211.  @NameWin @msgDDI
  212.  @msgPSAO
  213.  @Option 1010 = "Microsoft Windows Standard Installation"
  214.  @Option 1020 = "Microsoft Windows Network Server Installation"
  215. @EndOption
  216.  
  217. @If (@Esc)
  218.  @Goto MenuMain
  219. @ElseIf (@KeyF1)
  220.  @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin") 
  221.  @Goto MenuWin
  222. @Endif
  223.  
  224.  
  225. MenuWindow:
  226. @EnableF1(0)
  227. @GetOutDrive
  228.  @Suppress A
  229.  @Suppress B 
  230.  @Cls
  231.  @NameWin @msgDDI
  232.  @msgDrive
  233. @EndOutDrive
  234. @If (@Esc) @Goto MenuWin @EndIf
  235.  
  236. @GetSubdir
  237.  @Default = "\\WINDOWS"    
  238.  @Cls
  239.  @NameWin @msgDDI
  240.  @msgDir
  241.  
  242.  
  243. @EndSubdir
  244. @If (@Esc) @Goto MenuWindow @EndIf
  245.  
  246. @ClearOption(1)
  247. @ClearOption(2)
  248. @EnableF1(0)
  249. @GetOption
  250.  @LocalWindow (10,39) 
  251.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  252.   @Cls
  253.   @NameWin @msgDDI
  254.   @OutDrive:@SubDir @msgDDNE
  255.   @msgCont
  256.  @ElseIf (1020 [= @Option)
  257.   @Goto MenuCopyFileWin
  258.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\winver.exe" == 0) ||
  259.      (@Exists "@OutDrive:\\@SubDir\\win.ini" == 0))
  260.   @Cls
  261.   @NameWin @msgDDI
  262.   @msgNoFile
  263.   @OutDrive:@SubDir
  264.   @NameWin @msgNPI
  265.  @Else
  266.   @Goto MenuCopyFileWin
  267.  @EndIf
  268.  @Option 1 = "@Reenter"
  269.  @Option 2 = "@Cont"
  270. @EndOption
  271. @If ((@Esc) || (1 [= @Option))
  272.   @Goto MenuWindow
  273. @Endif
  274.  
  275.  
  276.  
  277. MenuCopyFileWin:
  278. @DefineDisk
  279. @Label = "Disk #1"
  280. @BeginLib CELSIUS.001 
  281.  
  282.  
  283. @If (@Spawn ("@StartupDrive:\\dacchk.exe") == 0)  /* AT&T DAC 110MHz */
  284.   @F X31KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  285.   @F X35KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  286.   @F X48KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010  
  287.   @F X56KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  288.   @F X64KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  289.   @F xcel1.CRT    @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  290.   @F CELSET1.HLP @O @OutDrive:\@SubDir\SYSTEM\celsetup.hlp @Option 1010 
  291.   @F X31KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  292.   @F X35KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  293.   @F X48KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  294.   @F X56KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  295.   @F X64KHZ.CRT   @O @OutDrive:\@SubDir\*.* @Option 1020 
  296.   @F Xcel1.CRT    @O @OutDrive:\@SubDir\*.* @Option 1020 
  297.   @F CELSET1.HLP @O @OutDrive:\@SubDir\celsetup.hlp @Option 1020 
  298.  
  299. @ElseIf (@Spawn ("@StartupDrive:\\dacchk.exe") == 1)  /* SIERRA DAC 110MHz  */
  300.   @F X31KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  301.   @F X35KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  302.   @F X48KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010  
  303.   @F X56KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  304.   @F X64KHZ.CRT   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  305.   @F xcel1.CRT    @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010 
  306.   @F CELSET1.HLP @O @OutDrive:\@SubDir\SYSTEM\celsetup.hlp @Option 1010 
  307.   @F X